﻿Imports DataAccessLayer

Public Class BLReport
    Inherits BLBase

#Region "Declare"

#End Region

#Region "Event"

#End Region

#Region "Overridable"

    Public Function GerReportByParamater(ByVal tablename As String, ByVal storeProcedureName As String, _
                                         ByVal param() As Object) As DataSet
        Dim oDLReport As New DLReport(BLCommonFactory.DatabaseConnectName)
        Return oDLReport.GerReportByParamater(tablename, storeProcedureName, param)
    End Function

    Public Function GetAccountingObjectPayable(ByVal param() As Object) As DataSet
        Dim oDLReport As New DLReport(BLCommonFactory.DatabaseConnectName)
        Return oDLReport.GetAccountingObjectPayable(param)
    End Function

    Public Function GetTurnoverByItemCategory(ByVal param() As Object) As DataSet
        Dim oDLReport As New DLReport(BLCommonFactory.DatabaseConnectName)
        Return oDLReport.GetTurnoverByItemCategory(param)
    End Function

    Public Function GetSummaryData(ByVal param() As Object) As DataSet
        Dim oDLReport As New DLReport(BLCommonFactory.DatabaseConnectName)
        Return oDLReport.GetSummaryData(param)
    End Function

    Public Function GetSummaryInventory(ByVal param() As Object) As DataSet
        Dim oDLReport As New DLReport(BLCommonFactory.DatabaseConnectName)
        Return oDLReport.GetSummaryInventory(param)
    End Function

#End Region

#Region "Sub/Function"

#End Region
End Class
